object fdiadbf: Tfdiadbf
  Left = 241
  Top = 21
  Width = 957
  Height = 739
  Caption = 'Diario - Teste de Banco de Dados'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 160
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Importar'
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGrid3: TDBGrid
    Left = 8
    Top = 56
    Width = 1241
    Height = 593
    DataSource = dsprocura
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'LANCAMENTO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DEVEDORA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CREDORA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HP'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COMPLEMENT'
        Width = 460
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'USUARIO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REFERENCIA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONSOLIDAD'
        Visible = True
      end>
  end
  object diariodb: TTable
    Active = True
    DatabaseName = 'gomide'
    TableName = 'DIARIO.DB'
    Left = 16
    Top = 16
    object diariodbLancamento: TAutoIncField
      FieldName = 'Lancamento'
      ReadOnly = True
    end
    object diariodbData: TDateField
      FieldName = 'Data'
    end
    object diariodbCredora: TStringField
      FieldName = 'Credora'
      Size = 6
    end
    object diariodbDevedora: TStringField
      FieldName = 'Devedora'
      Size = 6
    end
    object diariodbHp: TFloatField
      FieldName = 'Hp'
    end
    object diariodbComplemento: TStringField
      FieldName = 'Complemento'
      Size = 240
    end
    object diariodbValor: TFloatField
      FieldName = 'Valor'
    end
    object diariodbUsuario: TStringField
      FieldName = 'Usuario'
      Size = 10
    end
    object diariodbReferencia: TStringField
      FieldName = 'Referencia'
      Size = 7
    end
    object diariodbConsolidado: TBooleanField
      FieldName = 'Consolidado'
    end
  end
  object diariodbf: TTable
    Active = True
    DatabaseName = 'gomide'
    TableName = 'DIADBF.DBF'
    Left = 88
    Top = 16
    object diariodbfLANCAMENTO: TFloatField
      FieldName = 'LANCAMENTO'
    end
    object diariodbfDATA: TDateField
      FieldName = 'DATA'
    end
    object diariodbfDEVEDORA: TStringField
      FieldName = 'DEVEDORA'
      Size = 6
    end
    object diariodbfCREDORA: TStringField
      FieldName = 'CREDORA'
      Size = 6
    end
    object diariodbfHP: TSmallintField
      FieldName = 'HP'
    end
    object diariodbfCOMPLEMENT: TStringField
      FieldName = 'COMPLEMENT'
      Size = 240
    end
    object diariodbfVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object diariodbfUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object diariodbfREFERENCIA: TStringField
      FieldName = 'REFERENCIA'
      Size = 7
    end
    object diariodbfCONSOLIDAD: TStringField
      FieldName = 'CONSOLIDAD'
      Size = 1
    end
  end
  object dsdiadb: TDataSource
    DataSet = diariodb
    Left = 48
    Top = 16
  end
  object dsdiadbf: TDataSource
    DataSet = diariodbf
    Left = 128
    Top = 16
  end
  object Procura: TQuery
    Active = True
    DatabaseName = 'gomide'
    SQL.Strings = (
      'select * from diadbf order by data,valor')
    Left = 248
    Top = 8
    object ProcuraLANCAMENTO: TFloatField
      FieldName = 'LANCAMENTO'
      Origin = 'GOMIDE."DIADBF.DBF".LANCAMENTO'
    end
    object ProcuraDATA: TDateField
      FieldName = 'DATA'
      Origin = 'GOMIDE."DIADBF.DBF".DATA'
    end
    object ProcuraDEVEDORA: TStringField
      FieldName = 'DEVEDORA'
      Origin = 'GOMIDE."DIADBF.DBF".DEVEDORA'
      Size = 6
    end
    object ProcuraCREDORA: TStringField
      FieldName = 'CREDORA'
      Origin = 'GOMIDE."DIADBF.DBF".CREDORA'
      Size = 6
    end
    object ProcuraHP: TSmallintField
      FieldName = 'HP'
      Origin = 'GOMIDE."DIADBF.DBF".HP'
    end
    object ProcuraCOMPLEMENT: TStringField
      FieldName = 'COMPLEMENT'
      Origin = 'GOMIDE."DIADBF.DBF".COMPLEMENT'
      Size = 240
    end
    object ProcuraVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'GOMIDE."DIADBF.DBF".VALOR'
    end
    object ProcuraUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'GOMIDE."DIADBF.DBF".USUARIO'
      Size = 10
    end
    object ProcuraREFERENCIA: TStringField
      FieldName = 'REFERENCIA'
      Origin = 'GOMIDE."DIADBF.DBF".REFERENCIA'
      Size = 7
    end
    object ProcuraCONSOLIDAD: TStringField
      FieldName = 'CONSOLIDAD'
      Origin = 'GOMIDE."DIADBF.DBF".CONSOLIDAD'
      Size = 1
    end
  end
  object dsprocura: TDataSource
    DataSet = Procura
    Left = 288
    Top = 8
  end
end
